VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "TestLogger"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
Option Explicit
Private mLogger As Logger


Public Sub testCreation()
givenLogger
thenLoggerHasNothing
End Sub
Public Sub testLogMessage()
givenLogger
whenMessageLogged
thenLoggerHasSingleMessage
End Sub


''
''
Private Sub givenLogger()
Set mLogger = New Logger
End Sub
Private Sub whenMessageLogged()
mLogger.Log "message"
End Sub
Private Sub thenLoggerHasNothing()
assert.equals mLogger.Count, 0, "logger has zero messages"
End Sub
Private Sub thenLoggerHasSingleMessage()
assert.equals mLogger.Count, 1, "logger has one message"
End Sub


Public Function NumOfAsserts() As Long
NumOfAsserts = 2
End Function

